/* GUI CONVERTED from reiq03a.p (converter v1.75) Fri May 18 00:23:09 2001 */
/* reiq03a.p - Repetitive                                                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                       */
/* All rights reserved worldwide.  This is an unpublished work.              */
/* $Revision: 1.6.1.4 $                                                              */
/*V8:ConvertMode=Report                                                      */
/* REVISION: 7.3      LAST MODIFIED: 10/31/94   BY: WUG *GN77*               */
/* REVISION: 8.6      LAST MODIFIED: 04/09/97   BY: *K08N* Steve Goeke       */
/* REVISION: 8.6      LAST MODIFIED: 10/23/97   BY: mur *K13K*               */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane         */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane  */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb               */
/* REVISION: 9.1      LAST MODIFIED: 09/14/00   BY: *L13V* Vandna Rohira     */
/* Old ECO marker removed, but no ECO header exists *F0PN*                   */
/* Old ECO marker removed, but no ECO header exists *M17P*                   */
/* $Revision: 1.6.1.4 $    BY: Vandna Rohira  DATE: 05/16/01 ECO: *M17P*             */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SUBCONTRACT SHIPPER/CONTAINER INQUIRY SUBPROGRAM */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE reiq03a_p_1 "Work Order ID!Location"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03a_p_2 "ID"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03a_p_3 "ID!Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03a_p_4 "Item Number!Lot/Serial"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03a_p_5 "Operation!Ref"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

{wbrp02.i}

define input parameter abs_recid as recid.
define input parameter indent_ct as integer.

define variable ctype as character label "T" format "x(1)".
define variable disp_abs_id as character.
define variable indent_id as character format "x(12)" label {&reiq03a_p_2}.
define variable par_shipfrom as character.
define variable par_id as character.
define shared frame c.

FORM /*GUI*/ 
   indent_id    column-label {&reiq03a_p_3}
   abs_order    column-label {&reiq03a_p_1}
   abs_item     column-label {&reiq03a_p_4}
   abs_line     column-label {&reiq03a_p_5}
   abs_qty      format "->,>>>,>>9.9<<<<<<<<"
   pt_um
with STREAM-IO /*GUI*/  frame c down width 80 attr-space.

/* SET EXTERNAL LABELS */
setFrameLabels(frame c:handle).

find abs_mstr where recid(abs_mstr) = abs_recid no-lock.

find pt_mstr where pt_part = abs_item no-lock no-error.

indent_id = substring("...........",1,indent_ct) + if abs_id begins "i"
            then "I" else abs_id.

find sod_det where sod_nbr = abs_order and sod_line = integer(abs_line)
   no-lock no-error.

display
   indent_id
   abs_order
   abs_line   when (abs_order <> "")
   abs_item
   abs_qty    when (abs_qty <> 0)
   abs__qad02 @ pt_um
with frame c STREAM-IO /*GUI*/ .

down 1 with frame c.

display
   abs_site   @ indent_id
   abs_loc    @ abs_order
   abs_lotser @ abs_item
   abs_ref    @ abs_line
with frame c STREAM-IO /*GUI*/ .

down 1 with frame c.

assign
   par_shipfrom = abs_shipfrom
   par_id = abs_id.

for each abs_mstr no-lock
   where abs_shipfrom = par_shipfrom
     and abs_par_id   = par_id:
   {gprun.i ""reiq03a.p""
      "(input recid(abs_mstr), input (indent_ct + 1))"}
end.
{wbrp04.i}
